Function duplicate_removal(ByVal str As String, Optional ByVal sign As String = "，")

Dim strArr, strDic
Set strDic = CreateObject("Scripting.Dictionary")

strArr = Split(str, sign)
For i = 1 To UBound(strArr)
  strDic.Item(strArr(i)) = strArr(i)
Next i

For Each Key In strDic
  duplicate_removal = duplicate_removal + strDic(Key) + sign
Next

duplicate_removal = Left(duplicate_removal, Len(duplicate_removal) - Len(sign))

End Function
